home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 April: Mac OS SDK / Dev.CD Apr 99 SDK1.toast / Development Kits / ContextualMenuManagerSDK 1.0.3 / Contextual Menu Development / Headers & Stubs / ContextualMenu.p < prev    next >
Encoding:
Text File  |  1998-01-27  |  1.9 KB  |  77 lines  |  [TEXT/MPS ]
  1. {$IFC UNDEFINED UsingIncludes}
  2. {$SETC UsingIncludes := 0}
  3. {$ENDC}
  4.  
  5. {$IFC NOT UsingIncludes}
  6.  UNIT ContextualMenu;
  7.  INTERFACE
  8. {$ENDC}
  9.  
  10. {$IFC UNDEFINED __CONTEXTUALMENU__}
  11. {$SETC __CONTEXTUALMENU__ := 1}
  12.  
  13. {$I+}
  14. {$SETC ContextualMenuIncludes := UsingIncludes}
  15. {$SETC UsingIncludes := 1}
  16.  
  17. {$IFC UNDEFINED __APPLEEVENTS__}
  18. {$I AppleEvents.p}
  19. {$ENDC}
  20. {$IFC UNDEFINED __EVENTS__}
  21. {$I Events.p}
  22. {$ENDC}
  23. {$IFC UNDEFINED __MENUS__}
  24. {$I Menus.p}
  25. {$ENDC}
  26.  
  27.  
  28. {$PUSH}
  29. {$ALIGN MAC68K}
  30. {$LibExport+}
  31.  
  32. { Gestalt Selector for classic 68K apps only. }
  33. { CFM apps should weak link and check the symbols. }
  34.  
  35. CONST
  36.     gestaltContextualMenuAttr    = 'cmnu';
  37.     gestaltContextualMenuUnusedBit = 0;
  38.     gestaltContextualMenuTrapAvailable = 1;
  39.  
  40. { Values indicating what kind of help the application supports }
  41.     kCMHelpItemNoHelp            = 0;
  42.     kCMHelpItemAppleGuide        = 1;
  43.     kCMHelpItemOtherHelp        = 2;
  44.  
  45. { Values indicating what was chosen from the menu }
  46.     kCMNothingSelected            = 0;
  47.     kCMMenuItemSelected            = 1;
  48.     kCMShowHelpSelected            = 3;
  49.  
  50. FUNCTION InitContextualMenus: OSStatus;
  51.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  52.     INLINE $7001, $AA72;
  53.     {$ENDC}
  54. FUNCTION IsShowContextualMenuClick({CONST}VAR inEvent: EventRecord): BOOLEAN;
  55.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  56.     INLINE $7002, $AA72;
  57.     {$ENDC}
  58. FUNCTION ContextualMenuSelect(inMenu: MenuHandle; inGlobalLocation: Point; inReserved: BOOLEAN; inHelpType: UInt32; inHelpItemString: Str255; {CONST}VAR inSelection: AEDesc; VAR outUserSelectionType: UInt32; VAR outMenuID: SInt16; VAR outMenuItem: UInt16): OSStatus;
  59.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  60.     INLINE $7003, $AA72;
  61.     {$ENDC}
  62. FUNCTION ProcessIsContextualMenuClient(VAR inPSN: ProcessSerialNumber): BOOLEAN;
  63.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  64.     INLINE $7004, $AA72;
  65.     {$ENDC}
  66.  
  67. {$ALIGN RESET}
  68. {$POP}
  69.  
  70. {$SETC UsingIncludes := ContextualMenuIncludes}
  71.  
  72. {$ENDC} {__CONTEXTUALMENU__}
  73.  
  74. {$IFC NOT UsingIncludes}
  75.  END.
  76. {$ENDC}
  77.